#!/usr/local/bin/perl5

$file=pop @ARGV;

open FILE,"<",$file;
while($content=<FILE>)
{
	$_=$content;
	print "$1 contains \'wilma\'" if(/(.*a\b)/);
}